home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / CRACK84.DSK / SYSTEM MESSAGES.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  53 lines
  1. 1  TEXT : HOME 
  2. 2  PRINT : PRINT "THIS PROGRAM 'SYSTEM MESSAGES' ASSUMES": PRINT "YOUR PRINTER IS IN SLOT #1": PRINT "THIS COMMAND IS IN PROGRAM LINE #20": PRINT 
  3. 3  PRINT : PRINT "THE FOLLOWING COMMANDS ARE VALID:": PRINT 
  4. 4  PRINT " S = SCAN        R = READ"
  5. 5  PRINT " T = TITLES      Q = QUIT"
  6. 6  PRINT " P = PRINT (WHEN IN READ MODE)": PRINT 
  7. 7  PRINT : PRINT 
  8. 8 D$ =  CHR$(4)
  9. 9  DIM NW$(80)
  10. 10  GOTO 11200
  11. 20  PRINT  CHR$(4)"PR#1": RETURN 
  12. 3200  IF NW < >0  THEN PP =  -1: GOTO 3300
  13. 3220 F$ = "NW.TITLES": GOTO 3280
  14. 3280  PRINT D$"OPEN"F$: PRINT D$"READ"F$: INPUT W$:NW =  VAL(W$)
  15. 3300  PRINT : PRINT "THERE ARE ";NW;:
  16. 3305  PRINT " ACTIVE MESSAGES"
  17. 3310  IF PP =  -1  THEN PP = 0: GOTO 3380
  18. 3320  PRINT "...ONE MOMENT, PLEASE...": PRINT : PRINT D$"READ"F$
  19. 3340  FOR AM = 1 TO NW: INPUT NW$(AM): NEXT 
  20. 3360  PRINT D$"CLOSE"
  21. 3380  RETURN 
  22. 11200  REM  (S)CAN/READ BB TITLES
  23. 11220  PRINT "::: SCAN/READ/PRINT MESSAGES :::": PRINT 
  24. 11240  GOSUB 3200
  25. 11280  PRINT : INPUT "START LISTING TITLES WITH #";Q$:ZM =  VAL(Q$): IF ZM >NW  THEN 11280
  26. 11300  PRINT : IF ZM < = 0  OR ZM >NW  THEN ZM = 1
  27. 11320  CALL 54915: FOR AM = ZM TO ZM +9
  28. 11340  PRINT AM;"."; TAB( 5); LEFT$(NW$(AM), LEN(NW$(AM)) -6)
  29. 11360  IF AM = NW  THEN 11400
  30. 11380  NEXT 
  31. 11400  PRINT 
  32. 11420  INPUT "(T)ITLES, (R)EAD, (Q)UIT: ";Q$: PRINT : IF Q$ = ""  THEN Q$ = "T"
  33. 11440  IF  VAL(Q$) >0  THEN AX =  VAL(Q$): GOTO 11620
  34. 11460  IF  LEFT$(Q$,1) = "R"  THEN 11560
  35. 11480  IF  LEFT$(Q$,1) = "Q"  THEN  TEXT : HOME : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT "CALL  ";: INVERSE : PRINT "P I R A T E S     H A R B O R": NORMAL : PRINT : PRINT "         ";: FLASH : PRINT "6 1 7 - 7 2 0 - 3 6 0 0": NORMAL : END 
  36. 11500  IF  LEFT$(Q$,1) = "T"  THEN ZM = ZM +10: GOTO 11300
  37. 11520  GOTO 11400
  38. 11540  REM  SELECT MSG TO READ
  39. 11560  CALL 54915
  40. 11600  PRINT "(LAST="BX", QUIT=Q,PRINT=P) READ MSG.#";: INPUT "";M$: PRINT : IF M$ = "P"  THEN  GOSUB 20:PM = 1: GOTO 11620
  41. 11610 AX = BX +1: IF M$ < >""  THEN AX =  VAL(M$)
  42. 11620  IF AX >NW  THEN 11400
  43. 11640  IF AX <1  THEN 11400
  44. 11660 X$ = NW$(AX): IF  MID$ (X$, LEN(X$) -5,1) = "#"  THEN X$ =  LEFT$(X$, LEN(X$) -6)
  45. 11680  ONERR  GOTO 11800
  46. 11700 BX = AX: PRINT : PRINT "MESSAGE #";AX;": ";X$: PRINT : PRINT D$;"MON I"
  47. 11720  PRINT D$;"OPEN NW.";X$
  48. 11740  PRINT D$;"READ NW.";X$
  49. 11750  GET A$: PRINT A$;
  50. 11760  IF  RIGHT$(A$,3) =  CHR$(13) + CHR$(13) + CHR$(13)  THEN 11800
  51. 11780  GOTO 11750
  52. 11800  PRINT : PRINT D$;"NOMON I": PRINT D$;"CLOSE": IF PM = 1  THEN PM = 0: PRINT D$"PR#0"
  53. 11840  GOTO 11560